extern int xerabt_(integer *messg, integer *nmessg);
